home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / forms / balfrm / balfrm.frm next >
Text File  |  1994-10-26  |  2KB  |  88 lines
  1. VERSION 2.00
  2. Begin Form BallFrm 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "Balloon Form"
  5.    ClientHeight    =   4020
  6.    ClientLeft      =   1095
  7.    ClientTop       =   1485
  8.    ClientWidth     =   7365
  9.    Height          =   4425
  10.    Left            =   1035
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   268
  13.    ScaleMode       =   3  'Pixel
  14.    ScaleWidth      =   491
  15.    Top             =   1140
  16.    Width           =   7485
  17.    Begin Timer Timer1 
  18.       Interval        =   5000
  19.       Left            =   6930
  20.       Top             =   0
  21.    End
  22.    Begin TextBox test 
  23.       FontBold        =   -1  'True
  24.       FontItalic      =   0   'False
  25.       FontName        =   "Courier New"
  26.       FontSize        =   8.25
  27.       FontStrikethru  =   0   'False
  28.       FontUnderline   =   0   'False
  29.       Height          =   390
  30.       Left            =   1530
  31.       TabIndex        =   1
  32.       Text            =   "Balloon Help"
  33.       Top             =   3285
  34.       Width           =   3945
  35.    End
  36.    Begin PictureBox Picture1 
  37.       AutoSize        =   -1  'True
  38.       BorderStyle     =   0  'None
  39.       Height          =   330
  40.       Left            =   3285
  41.       Picture         =   BALFRM.FRX:0000
  42.       ScaleHeight     =   330
  43.       ScaleWidth      =   360
  44.       TabIndex        =   0
  45.       Top             =   1125
  46.       Width           =   360
  47.    End
  48.    Begin Label Label1 
  49.       BackColor       =   &H00C0C0C0&
  50.       Caption         =   "Balloon Help Text"
  51.       Height          =   240
  52.       Left            =   2565
  53.       TabIndex        =   2
  54.       Top             =   3015
  55.       Width           =   1905
  56.    End
  57. End
  58. Dim WindowHandle As Integer, HintHandle As Integer
  59. Dim MyStringSize As Size
  60. Dim Dummy As Integer
  61. Dim RecArea As Rect
  62. Dim HintBitMap As Integer
  63. Dim RecWidth As Integer, RecHeight As Integer
  64.  
  65. Sub Form_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
  66.  
  67.     Call RemBalloon(BallFrm)
  68.  
  69. End Sub
  70.  
  71. Sub Picture1_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
  72.  
  73.     Dim HintString As String
  74.  
  75.     HintString = Trim(Test.Text)
  76.  
  77.  
  78.         Call PutBalloon(HintString, BallFrm)
  79.  
  80. End Sub
  81.  
  82. Sub Timer1_Timer ()
  83.  
  84.     Call CheckBalloon(BallFrm)
  85.  
  86. End Sub
  87.  
  88.